home *** CD-ROM | disk | FTP | other *** search
- @thread FORMTRK.LOG
- @NewAlias da DASD.GRA
- da LOG $PROMPT="LOGGING FORMAT TRACK"
- da set DEVICENAME=A:
- da response $PROMPT="PLEASE PLACE A DISK IN DRIVE A:" $PAUSE=-1
- da DASD_OPEN
- da LOCK_LOGICAL
- da GET_LOGICAL_PARAMS
- da set VAL2=1 $i=0 $RESULT=$i
- da SUB $OP1=$(HEADCOUNT) $OP2=$(VAL2)
-
- da set HEAD=$(RESULT) \
- TRACKNUM=10 \
- TRACKSIZE=18 \
- SECTORSIZE=512
-
- da FORMAT_TRACK
- da DASD_CLOSE
- @flush da